perm filename QUADX[LCS,MUS] blob
sn#049512 filedate 1973-06-16 generic text, type T, neo UTF8
00100 QQQ
00200 FUNC 0,512/P2 1/P4 QUADF MOVE/512 0,1440*; MOVING CIRCLE
00300 P5 MO/256 20,10/256 10 20*; DISTANCE FROM CENTER
00400 P6 MOVE/512 -20 20*/P7 MO/256 -20 0/256 0 -20*/END; /P8 SUBN/END; CENTER IS AT 0,0
00500 RUN;
00600
00700 QQQ ; MAKES A SPIRL
00800 FUNC 0,,512/P2 1/P4 QUADF MOVE/512 0,1440*; SPIRAL
00900 P5 MO/512 0 30*; DISTANCE FROM CENTER
01000 RUN;
01100
01200 QQQ
01300 FUNC 0,,512/P2 1/P4 QUADF MOVE/512 0,1440*; SPIRAL
01400 P5 MO/512 0 30*; DISTANCE FROM CENTER
01500 P6 MO/512 -30 30*/P7 0/END; CENTER IS AT 0,0
01600 RUN;
01700 AA ; FIGURE 8
01800 FUNC 0 512/P2 1/P11 QUFC MO/256 180 540/256 0 360*;
01900 P12 7.5/P14 MO/256 7.5/-7.5*/RUN;
02000
02100 MM ; THE LETTER M
02200 FUNC 0 512/P2 1/P3 QUFX MO/150 -10/216 -10 10*;
02300 P4 MO/150 -15 15/106 15 0/106 0 15/150 15 -15*/RUN;
02400
02500 AAA ; THE LETTER D
02600 FUNC 0 512/P2 1/P3 QUFX MO/80 -4 -10/160 -10/80 -10 -4*;
02700 P4 MO/80 -15/160 -15 15*/END;
02800 FUNC 320/P3 QUFC MO/192 0 182*/P4 15/P5 -4/RUN;
02900
03000 SS ; ZZZZZ
03100 FUNC 0 512/P2 1/P3 QUFC MO/128 270 450*/P4 7.5/P6 P4/END;
03200 FUNC 128/P3 QUFX 7.5/P4 MO/128 7.5 -7.5*/END;
03300 FUNC 256/P3 QUFC MO/128 90 270*/P4 7.5/P6 -7.5/END;
03400 FUNC 384/P3 QUFX -7.5/P4 MO/128 -7.5 7.5*/RUN;
03500